<%@codepage=65001%>
<!--#include file="classData.asp"-->
<%
Response.Buffer = True 
Response.ExpiresAbsolute = Now() - 1 
Response.Expires = 0 
Response.CacheControl = "no-cache" 
Response.AddHeader "Pragma", "No-Cache"



	AreaLevel = Request.QueryString("AreaLevel")
	SeasonNum = Request.QueryString("SeasonNum")

	set HuaObj = new sysData
	HuaObj.sqlConnOpen()
	
	set HuaRds=server.CreateObject("ADODB.recordset")
	HuaObj.DbQuery HuaRds,"AreaLeague a INNER JOIN ClubInfo c ON a.ManagerId = c.ManagerId",QueryStr,0," AreaLevel = "&AreaLevel&" AND SeasonNum = "&SeasonNum&" ORDER BY Ranking,ALId"

	response.ContentType="text/xml"	
	Response.Write("<?xml version=""1.0"" encoding=""utf-8""?>"&vbcrlf)
	Response.Write("<xml>"&vbcrlf)
	
	while not(HuaRds.eof)

		Response.Write("<Shi ShiId = """&HuaRds(0)&""">"&vbcrlf)
		Response.Write("<ranking>"&HuaRds("Ranking")&"</ranking>"&vbcrlf)
		Response.Write("<flag>"&HuaRds("FlagStr")&"</flag>"&vbcrlf)
		Response.Write("<name>"&HuaRds("ClubNameC")&"</name>"&vbcrlf)
		Response.Write("<round>"&HuaRds("TotalRound")&"</round>"&vbcrlf)
		Response.Write("<score>"&HuaRds("Score")&"</score>"&vbcrlf)
		Response.Write("</Shi>"&vbcrlf)
	

		HuaRds.MoveNext
	
	wend
	
	Response.Write("</xml>"&vbcrlf)
	
	HuaRds.Close
	HuaObj.sqlConnClose()


%>
